(prompt "The registered version of the executable isn't available in this archive. "
"Would you like to install the demo version, instead?"
)
)
( set exefile "Installation/exes/X-Arc_DEMO")
( exit )
)
(
( message "This archive doesn't contain either the registered version of the executable, "
"nor the demo. Please download the correct archive from http://www.AmyResource.it/X-Arc"
)
(exit)
)
)
)
)
(
(if (exists "Installation/exes/X-Arc_DEMO")
( set exefile "Installation/exes/X-Arc_DEMO" )
(if (exists "Installation/exes/X-Arc_REG")
(if (P_CERCACHIAVE)
( set exefile "Installation/exes/X-Arc_REG")
(if
(askbool
(help @askbool-help)
(prompt "The demo version of the executable isn't available in this archive. "
"Would you like to install the registered version, instead?"
"\n\nPlease remember that without a keyfile, the registered version cannot be used."
)
)
( set exefile "Installation/exes/X-Arc_REG")
( exit)
)
)
(
( message "This archive doesn't contain either the demo version of the executable,"
" nor the registered one. Please download the correct archive from http://www.AmyResource.it/X-Arc"
)
(exit)
)
)
)
)
)
)
(procedure P_TAGGADEST
( set
@default-dest
(askdir
(prompt "Please select the drawer where you want to install X-Arc.\nA directory WILL be created there.")
(help @askdir-help)
(default @default-dest)
)
)
)
(procedure P_INXARC
(if (exists "MUI:" (noreq))
(
(P_TAGGAEXE)
(P_TAGGADEST)
(P_SETTA_VAR_CAT)
(if (= 0 (+
(StrLen catalan_cat )
(StrLen croatian_cat )
(StrLen czech_cat )
(StrLen danish_cat )
(StrLen dutch_cat )
(StrLen english_cat )
(StrLen finnish_cat )
(StrLen french_cat )
(StrLen german_cat )
(StrLen greek_cat )
(StrLen hungarian_cat )
(StrLen italian_cat )
(StrLen japanese_cat )
(StrLen norwegian_cat )
(StrLen persian_cat )
(StrLen polish_cat )
(StrLen portugueseeuro_cat )
(StrLen portuguesebraz_cat )
(StrLen russian_cat )
(StrLen serbian_cat )
(StrLen slovenian_cat )
(StrLen spanish_cat )
(StrLen swedish_cat )
)
)
(message "No catalog files are included in this archive. Please check for the FULL archive on the X-Arc or VaporWare home page.\n\nhttp:www.AmyResource.it/X-Arc\nhttp://www.vapor.com" )
(message "No documentation is included in this archive. Please check for the FULL archive on the X-Arc or VaporWare home page.\n\nhttp:www.AmyResource.it/X-Arc\nhttp://www.vapor.com" )
( prompt "The installer script found that you have an X-Arc key but not yet installed (perhaps you're a new user or the xarctools.library has been replaced).\nThe key needs to be installed"
" to be able to use X-Arc without restrictions. Would you like the script to"
" install it?"
)
(help @askbool-help)
)
(
(P_INKEY)
(exit)
)
(
(P_INREGUTIL)
(exit)
)
)
(
(exit)
(P_INREGUTIL)
)
)
)
)
(
(message
"\nThis program needs MUI(r) installed on your system.\n"
(prompt "The ZIP module needs the Zip program, by Mark Adler, Richard B. Wales, ... Please locate it.\nThe module is also compatible with the PPC version of this command, ported by Gabriele Greco." )
(default "C:Zip" )
(help @askfile-help)
)
)
)
(if (= 1 (exists zipcommand) )
(
(set versione (getversion zipcommand) )
(set zipver (/ versione 65536) )
(set ziprev (- versione (* zipver 65536) ) )
)
(set zipcommand 0)
)
(if (= versione 0)
(message "The selected file could not be found. The installer script will create the ZIP archive type, "
"even though you will have to specify the location of the ZIP command, later within X-Arc."
)
(if (< versione 131074)
(
(message "The version of ZIP you are using is old. Please download a later version from Aminet. "
"The latest version ZIP is v2.2.\n\n"
)
(message "By the way, the ZIP Module should be able to use this version " zipver "." ziprev " of ZIP, "
"even if it won't work very well. Updating to latest version (2.2) is highly recommended."
)
)
)
)
(if (= 1 (exists "C:UnZip") )
(set zipuncommand "C:UnZip")
(set zipuncommand
(askfile
(prompt "The ZIP module needs the UnZip program, by Info-ZIP, maintained by Greg Roelofs. Please locate it.\nThe module is also compatible with the PPC version of this command, ported by Gabriele Greco." )
(default "C:UnZip" )
(help @askfile-help)
)
)
)
(if (= 1 (exists zipcommand) )
(
(set versione (getversion zipuncommand) )
(set zipver (/ versione 65536) )
(set ziprev (- versione (* zipver 65536) ) )
)
(set versione 0)
)
(if (= versione 0)
(message "The selected file could not be found. The installer script will create the UnZIP archive type, "
"even though you will have to specify the location of the UnZIP command, later within X-Arc."
)
(if (< versione 327710)
(
(message "The version of UnZIP you are using is old. Please download a later version from Aminet. "
"Latest version of ZIP is v5.32.\n\n"
)
(message "By the way, the ZIP Module should be able to use this version " zipver "." ziprev " of Zip, "
"even if it won't work very well. Updating to latest version (5.32) is highly recommended."
